home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pcmagazi
/
utility
/
async4
/
async.pas
next >
Wrap
Pascal/Delphi Source File
|
1987-11-28
|
833b
|
29 lines
Program Async;
{--------------------------------------------------------------------------}
{ This is a trivial little glass terminal program which simply shows a }
{ test I used of the ASYNC4U unit under Turbo 4.0 which appears to work. }
{ Scott Gurvey }
{--------------------------------------------------------------------------}
uses Dos, Crt, Async4U;
var inchar, outchar : char;
begin
Async_Init;
write(Async_Open(1,1200,'E',7,1));
outchar:=' ';
repeat
if Async_Buffer_Check(inchar) then write(inchar);
if keypressed then begin
outchar:=Readkey;
If outchar<>'!' then {Type an exclaimation point to exit}
Async_send(outchar);
end;
until outchar='!';
Async_Close;
end.